home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Gamers Delight 2
/
Gamers Delight 2.iso
/
Aminet
/
game
/
misc
/
AdvSys.lha
/
AdvSys
/
osample.adv
< prev
next >
Wrap
Text File
|
1987-07-07
|
4KB
|
149 lines
; SAMPLE.ADV
;
; This is a VERY simple sample adventure that uses the "BASIC.ADI" simple
; runtime support code. It isn't interesting to play, but does illustrate
; most of the features of the adventure authoring system. Try compiling
; it using the command:
;
; A>ADVCOM SAMPLE
;
; When the compile has finished, run the adventure using the command:
;
; A>ADVINT SAMPLE
;
; You should then see the initial welcome message and a description of
; your initial location. You can use the direction names to move from
; one location to the next (or the abreviations N,S,E,W). You should try
; manipulating objects using TAKE and DROP. You can manipulate more than
; one at a time by using the conjunction AND. You can also GIVE an object
; to another creature like the DOG or CAT. You can instruct another
; creature to perform an action like:
;
; CAT, GIVE THE DOG THE KEY
;
; You can also experiment with using adjectives to distinguish between
; objects (there is more than one KEY in this adventure).
(adventure sample 1)
(define welcome "Welcome to the sample adventure.\n")
@objects.adi
(actor adventurer
(noun me)
(property
initial-location livingroom))
(actor dog
(noun dog)
(adjective small)
(property
description "There is a small dog here."
short-description "a small dog"
initial-location kitchen))
(actor cat
(noun cat)
(property
description "There is a cat here."
short-description "a cat"
initial-location kitchen))
(location storage-room
(property
description "You are in a small storage room with many empty shelves.
The only exit is a door to the west."
short-description "You are in the storage room."
west hallway)
(method (leave obj dir)
(if (send obj carrying? rusty-key)
(send-super leave obj dir)
(print "You seem to be missing something!\n"))))
(location hallway
(property
description "You are in a long narrow hallway. There is a door to the
east into a small dark room. There are also exits on both
the north and south ends of the hall."
short-description "You are in the hallway."
east storage-room
north kitchen
south livingroom))
(location kitchen
(property
description "This is a rather dusty kitchen. There is a hallway to the
south and a pantry to the west."
short-description "You are in the kitchen."
south hallway
west pantry))
(location pantry
(property
description "This is the kitchen pantry. The kitchen is through a
doorway to the east."
short-description "You are in the pantry."
east kitchen))
(location livingroom
(property
description "This appears to be the livingroom. There is a hallway to
the north and a closet to the west."
short-description "You are in the livingroom."
north hallway
west closet
south front-door-1))
(location outside
(property
description "You are outside a small house. The front door is to the
north."
short-description "You are outside."
north front-door-2))
(portal front-door
(noun door)
(adjective front)
(class-property
short-description "front door"
closed t
locked t
key rusty-key))
(front-door front-door-1
(property
initial-location livingroom
other-side front-door-2))
(front-door front-door-2
(property
initial-location outside
other-side front-door-1))
(location closet
(property
description "This is the livingroom closet. The livingroom is through
a doorway to the east."
short-description "You are in the closet."
east livingroom))
(thing rusty-key
(noun key)
(adjective rusty)
(property
description "There is a rusty key here."
short-description "a rusty key"
initial-location storage-room))
(thing silver-key
(noun key)
(adjective small silver)
(property
description "There is a small silver key here."
short-description "a small silver key"
initial-location closet))